Fixed public/private issues that gfortran picked up on but ifort did not

MintonGroup · Jul 9, 2021 · 1715d42 · 1715d42
1 parent ceade10
commit 1715d42
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/modules/helio_classes.f90 b/src/modules/helio_classes.f90
@@ -4,7 +4,7 @@ module helio_classes
    !! 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
+   use swiftest_classes, only : swiftest_cb, swiftest_pl, swiftest_tp, swiftest_nbody_system
    use whm_classes, only : whm_nbody_system
    implicit none
 

diff --git a/src/modules/rmvs_classes.f90 b/src/modules/rmvs_classes.f90
@@ -80,7 +80,7 @@ module rmvs_classes
    !*******************************************************************************************************************************
 
    !> RMVS massive body particle class
-   type, private, extends(whm_pl) :: rmvs_pl
+   type, public, 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