From 906963e5fda8fdd2a6d56e4aaa42b102a15937fd Mon Sep 17 00:00:00 2001 From: Carlisle Wishard Date: Wed, 29 Sep 2021 14:48:45 -0400 Subject: [PATCH] passed argument ind to netcdf_read_particle_info_base --- src/modules/swiftest_classes.f90 | 3 ++- src/netcdf/netcdf.f90 | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/modules/swiftest_classes.f90 b/src/modules/swiftest_classes.f90 index a48953370..6ffd3b2da 100644 --- a/src/modules/swiftest_classes.f90 +++ b/src/modules/swiftest_classes.f90 @@ -1080,10 +1080,11 @@ module subroutine netcdf_read_hdr_system(self, iu, param) class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters end subroutine netcdf_read_hdr_system - module subroutine netcdf_read_particle_info_base(self, iu) + module subroutine netcdf_read_particle_info_base(self, iu, ind) implicit none class(swiftest_base), intent(inout) :: self !! Swiftest particle object class(netcdf_parameters), intent(inout) :: iu !! Parameters used to identify a particular NetCDF dataset + integer(I4B), dimension(:), intent(in) :: ind !! Index mapping from netcdf to active particles end subroutine netcdf_read_particle_info_base module subroutine netcdf_write_frame_base(self, iu, param) diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index 9c104b3ce..04ba92bc0 100644 --- a/src/netcdf/netcdf.f90 +++ b/src/netcdf/netcdf.f90 @@ -499,7 +499,7 @@ module subroutine netcdf_read_hdr_system(self, iu, param) return end subroutine netcdf_read_hdr_system - module subroutine netcdf_read_particle_info_base(self, iu) + module subroutine netcdf_read_particle_info_base(self, iu, ind) !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton !! !! Write all current particle to file @@ -507,9 +507,9 @@ module subroutine netcdf_read_particle_info_base(self, iu) ! Arguments class(swiftest_base), intent(inout) :: self !! Swiftest particle object class(netcdf_parameters), intent(inout) :: iu !! Parameters used to identify a particular NetCDF dataset + integer(I4B), dimension(:), intent(in) :: ind !! Index mapping from netcdf to active particles ! Internals integer(I4B) :: i, j, tslot, strlen, idslot, old_mode - integer(I4B), dimension(:), allocatable :: ind character(len=:), allocatable :: charstring character(len=NAMELEN) :: emptystr, lenstr character(len=:), allocatable :: fmtlabel