module elemental > elemental module

MintonGroup · Oct 17, 2022 · 81fde88 · 81fde88
1 parent 1948d58
commit 81fde88
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/src/drift/drift.f90 b/src/drift/drift.f90
@@ -92,7 +92,7 @@ module subroutine drift_all(mu, x, v, n, param, dt, lmask, iflag)
    end subroutine drift_all
 
 
-   module pure elemental subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag) 
+   pure elemental module 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

diff --git a/src/encounter/encounter_check.f90 b/src/encounter/encounter_check.f90
@@ -683,7 +683,7 @@ subroutine encounter_check_all_triangular_pltp(npl, ntp, xpl, vpl, xtp, vtp, ren
    end subroutine encounter_check_all_triangular_pltp
 
 
-   module elemental subroutine encounter_check_one(xr, yr, zr, vxr, vyr, vzr, renc, dt, lencounter, lvdotr)
+   elemental module subroutine encounter_check_one(xr, yr, zr, vxr, vyr, vzr, renc, dt, lencounter, lvdotr)
       !! author: David A. Minton
       !!
       !! Determine whether a test particle and planet are having or will have an encounter within the next time step

diff --git a/src/modules/encounter_classes.f90 b/src/modules/encounter_classes.f90
@@ -107,7 +107,7 @@ module subroutine encounter_check_all_pltp(param, npl, ntp, xpl, vpl, xtp, vtp,
          logical,      dimension(:), allocatable, intent(out)   :: lvdotr !! Logical flag indicating the sign of v .dot. x
       end subroutine encounter_check_all_pltp
 
-      module elemental subroutine encounter_check_one(xr, yr, zr, vxr, vyr, vzr, renc, dt, lencounter, lvdotr)
+      elemental module subroutine encounter_check_one(xr, yr, zr, vxr, vyr, vzr, renc, dt, lencounter, lvdotr)
          !$omp declare simd(encounter_check_one)
          implicit none
          real(DP), intent(in)  :: xr, yr, zr    !! Relative distance vector components

diff --git a/src/modules/swiftest_classes.f90 b/src/modules/swiftest_classes.f90
@@ -509,7 +509,7 @@ module subroutine drift_body(self, system, param, dt)
          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)
+      pure elemental module 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