From 81fde886c96fc1e91185f24daa298906e4439668 Mon Sep 17 00:00:00 2001 From: Carlisle Wishard Date: Mon, 17 Oct 2022 12:08:44 -0400 Subject: [PATCH] module elemental > elemental module --- src/drift/drift.f90 | 2 +- src/encounter/encounter_check.f90 | 2 +- src/modules/encounter_classes.f90 | 2 +- src/modules/swiftest_classes.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/drift/drift.f90 b/src/drift/drift.f90 index a5b7631c9..3acc88609 100644 --- 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 index 8acbc4315..e790abf5a 100644 --- 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 index 39b88ae05..17f7ea0ad 100644 --- 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 index d2f1adeef..f64bba576 100644 --- 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