fixed bad import/use statements

MintonGroup · Oct 9, 2021 · 4053cd2 · 4053cd2
1 parent 889e4c2
commit 4053cd2
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/modules/encounter_classes.f90 b/src/modules/encounter_classes.f90
@@ -65,7 +65,7 @@ module subroutine encounter_check_all(nenc, index1, index2, x1, v1, x2, v2, renc
       end subroutine encounter_check_all
 
       module subroutine encounter_check_all_plpl(param, npl, x, v, renc, dt, lvdotr, index1, index2, nenc)
-         import swiftest_parameters
+         use swiftest_classes, only: swiftest_parameters
          implicit none
          class(swiftest_parameters),              intent(inout) :: param  !! Current Swiftest run configuration parameter5s
          integer(I4B),                            intent(in)    :: npl    !! Total number of massive bodies
@@ -80,7 +80,7 @@ module subroutine encounter_check_all_plpl(param, npl, x, v, renc, dt, lvdotr, i
       end subroutine encounter_check_all_plpl
 
       module subroutine encounter_check_all_plplm(param, nplm, nplt, xplm, vplm, xplt, vplt, rencm, renct, dt, lvdotr, index1, index2, nenc)
-         import swiftest_parameters
+         use swiftest_classes, only: swiftest_parameters
          implicit none
          class(swiftest_parameters),              intent(inout) :: param  !! Current Swiftest run configuration parameter5s
          integer(I4B),                            intent(in)    :: nplm   !! Total number of fully interacting massive bodies 
@@ -99,7 +99,7 @@ module subroutine encounter_check_all_plplm(param, nplm, nplt, xplm, vplm, xplt,
       end subroutine encounter_check_all_plplm
 
       module subroutine encounter_check_all_pltp(param, npl, ntp, xpl, vpl, xtp, vtp, renc, dt, lvdotr, index1, index2, nenc)
-         import swiftest_parameters
+         use swiftest_classes, only: swiftest_parameters
          implicit none
          class(swiftest_parameters),              intent(inout) :: param  !! Current Swiftest run configuration parameter5s
          integer(I4B),                            intent(in)    :: npl    !! Total number of massive bodies 
@@ -175,6 +175,7 @@ module subroutine encounter_io_write_frame(iu, t, id1, id2, Gmass1, Gmass2, radi
       end subroutine encounter_io_write_frame
 
       module subroutine encounter_io_write_list(self, pl, encbody, param)
+         use swiftest_classes, only : swiftest_pl, swiftest_body, swiftest_parameters
          implicit none
          class(encounter_list),  intent(in) :: self    !! Swiftest encounter list object
          class(swiftest_pl),         intent(in) :: pl      !! Swiftest massive body object

diff --git a/src/modules/rmvs_classes.f90 b/src/modules/rmvs_classes.f90
@@ -112,6 +112,7 @@ module subroutine rmvs_discard_tp(self, system, param)
       end subroutine rmvs_discard_tp
 
       module function rmvs_encounter_check_tp(self, param, system, dt) result(lencounter)
+         use swiftest_classes, only : swiftest_parameters
          implicit none
          class(rmvs_tp),             intent(inout) :: self       !! RMVS test particle object  
          class(swiftest_parameters), intent(inout) :: param      !! Current run configuration parameters