module pure > pure module

src/encounter/encounter_check.f90

@@ -865,7 +865,7 @@ subroutine encounter_check_remove_duplicates(n, nenc, index1, index2, lvdotr)
    end subroutine encounter_check_remove_duplicates
 
 
-   module pure subroutine encounter_check_sort_aabb_1D(self, n, extent_arr)
+   pure module subroutine encounter_check_sort_aabb_1D(self, n, extent_arr)
       !! author: David A. Minton
       !!
       !! Sorts the bounding box extents along a single dimension prior to the sweep phase. 

src/gr/gr.f90

@@ -2,7 +2,7 @@
    use swiftest
 contains
 
-   module pure subroutine gr_kick_getaccb_ns_body(self, system, param) 
+   pure module subroutine gr_kick_getaccb_ns_body(self, system, param) 
       !! author: David A. Minton
       !!
       !! Add relativistic correction acceleration for non-symplectic integrators.
@@ -45,7 +45,7 @@ module pure subroutine gr_kick_getaccb_ns_body(self, system, param)
    end subroutine gr_kick_getaccb_ns_body
 
 
-   module pure subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr) 
+   pure module subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr) 
       !! author: David A. Minton
       !!
       !! Compute relativisitic accelerations of massive bodies
@@ -75,7 +75,7 @@ module pure subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr)
    end subroutine gr_kick_getacch
 
 
-   module pure subroutine gr_p4_pos_kick(param, x, v, dt)
+   pure module 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
@@ -104,7 +104,7 @@ module pure subroutine gr_p4_pos_kick(param, x, v, dt)
    end subroutine gr_p4_pos_kick
 
 
-   module pure subroutine gr_pseudovel2vel(param, mu, xh, pv, vh) 
+   pure module subroutine gr_pseudovel2vel(param, mu, xh, pv, vh) 
       !! author: David A. Minton
       !!
       !! Converts the relativistic pseudovelocity back into a veliocentric velocity
@@ -136,7 +136,7 @@ module pure subroutine gr_pseudovel2vel(param, mu, xh, pv, vh)
    end subroutine gr_pseudovel2vel
 
 
-   module pure subroutine gr_pv2vh_body(self, param)
+   pure module subroutine gr_pv2vh_body(self, param)
       !! author: David A. Minton
       !!
       !! Wrapper function that converts from pseudovelocity to heliocentric velocity for swiftest bodies
@@ -161,7 +161,7 @@ module pure subroutine gr_pv2vh_body(self, param)
    end subroutine gr_pv2vh_body
 
 
-   module pure subroutine gr_vel2pseudovel(param, mu, xh, vh, pv)
+   pure module subroutine gr_vel2pseudovel(param, mu, xh, vh, pv)
       !! author: David A. Minton
       !!
       !! Converts the heliocentric velocity into a pseudovelocity with relativistic corrections. 
@@ -238,7 +238,7 @@ module pure subroutine gr_vel2pseudovel(param, mu, xh, vh, pv)
    end subroutine gr_vel2pseudovel
 
 
-   module pure subroutine gr_vh2pv_body(self, param)
+   pure module subroutine gr_vh2pv_body(self, param)
       !! author: David A. Minton
       !!
       !! Wrapper function that converts from heliocentric velocity to pseudovelocity for Swiftest bodies

src/helio/helio_gr.f90

@@ -2,7 +2,7 @@
    use swiftest
 contains
 
-   module pure subroutine helio_gr_kick_getacch_pl(self, param) 
+   pure module subroutine helio_gr_kick_getacch_pl(self, param) 
       !! author: David A. Minton
       !!
       !! Compute relativisitic accelerations of massive bodies
@@ -30,7 +30,7 @@ module pure subroutine helio_gr_kick_getacch_pl(self, param)
    end subroutine helio_gr_kick_getacch_pl
 
 
-   module pure subroutine helio_gr_kick_getacch_tp(self, param)
+   pure module subroutine helio_gr_kick_getacch_tp(self, param)
       !! author: David A. Minton
       !!
       !! Compute relativisitic accelerations of test particles
@@ -56,7 +56,7 @@ module pure subroutine helio_gr_kick_getacch_tp(self, param)
    end subroutine helio_gr_kick_getacch_tp
 
 
-   module pure subroutine helio_gr_p4_pl(self, system, param, dt)
+   pure module subroutine helio_gr_p4_pl(self, system, param, dt)
       !! author: David A. Minton
       !!
       !! Position kick to massive bodies due to p**4 term in the post-Newtonian correction
@@ -84,7 +84,7 @@ module pure subroutine helio_gr_p4_pl(self, system, param, dt)
    end subroutine helio_gr_p4_pl
 
 
-   module pure subroutine helio_gr_p4_tp(self, system, param, dt)
+   pure module subroutine helio_gr_p4_tp(self, system, param, dt)
       !! author: David A. Minton
       !!
       !! Position kick to test particles due to p**4 term in the post-Newtonian correction

src/kick/kick.f90

@@ -255,7 +255,7 @@ module subroutine kick_getacch_int_all_tp(ntp, npl, xtp, xpl, GMpl, lmask, acc)
    end subroutine kick_getacch_int_all_tp
 
 
-   module pure subroutine kick_getacch_int_one_pl(rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj)
+   pure module 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
@@ -286,7 +286,7 @@ module pure subroutine kick_getacch_int_one_pl(rji2, xr, yr, zr, Gmi, Gmj, axi,
    end subroutine kick_getacch_int_one_pl
 
 
-   module pure subroutine kick_getacch_int_one_tp(rji2, xr, yr, zr, GMpl, ax, ay, az)
+   pure module 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.

src/modules/encounter_classes.f90

@@ -128,7 +128,7 @@ module subroutine encounter_check_collapse_ragged_list(ragged_list, n1, nenc, in
          logical,              dimension(:), allocatable, intent(out), optional :: lvdotr      !! Array indicating which bodies are approaching
       end subroutine encounter_check_collapse_ragged_list
 
-      module pure subroutine encounter_check_sort_aabb_1D(self, n, extent_arr)
+      pure module subroutine encounter_check_sort_aabb_1D(self, n, extent_arr)
          implicit none
          class(encounter_bounding_box_1D), intent(inout) :: self       !! Bounding box structure along a single dimension
          integer(I4B),                     intent(in)    :: n          !! Number of bodies with extents

src/modules/helio_classes.f90

@@ -108,21 +108,21 @@ module subroutine helio_drift_linear_tp(self, cb, dt, lbeg)
          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 pure subroutine helio_gr_kick_getacch_pl(self, param) 
+      pure 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 pure subroutine helio_gr_kick_getacch_tp(self, param)
+      pure 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, system, param, dt)
+      pure module subroutine helio_gr_p4_pl(self, system, param, dt)
          use swiftest_classes, only : swiftest_parameters, swiftest_nbody_system
          implicit none
          class(helio_pl),              intent(inout) :: self   !! Swiftest particle object
@@ -131,7 +131,7 @@ module pure subroutine helio_gr_p4_pl(self, system, param, dt)
          real(DP),                     intent(in)    :: dt     !! Step size
       end subroutine helio_gr_p4_pl
 
-      module pure subroutine helio_gr_p4_tp(self, system, param, dt)
+      pure module subroutine helio_gr_p4_tp(self, system, param, dt)
          use swiftest_classes, only : swiftest_parameters, swiftest_nbody_system
          implicit none
          class(helio_tp),              intent(inout) :: self   !! Swiftest particle object