From 1715d429deb3a4a5b2da6a0fc3fdaa614f3d5d04 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 9 Jul 2021 18:26:56 -0400 Subject: [PATCH] Fixed public/private issues that gfortran picked up on but ifort did not --- src/modules/helio_classes.f90 | 2 +- src/modules/rmvs_classes.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/modules/helio_classes.f90 b/src/modules/helio_classes.f90 index d97a1608c..7dd260dc5 100644 --- 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 index 2baad04eb..d6d0fc3a8 100644 --- 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