From ef2af76c8152e6fa7c80b7f2e5a380c35275fb03 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 19 Oct 2021 10:12:50 -0400 Subject: [PATCH] Added allocate statement for test particles --- src/netcdf/netcdf.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index ab05d3c2a..384a7f437 100644 --- a/src/netcdf/netcdf.f90 +++ b/src/netcdf/netcdf.f90 @@ -677,6 +677,7 @@ module subroutine netcdf_read_particle_info_system(self, iu, plmask, tpmask) do i = 1, ntp call tp%info(i)%set_value(status="ACTIVE") end do + allocate(tpind(ntp)) tpind(:) = pack([(i, i = 1, idmax)], tpmask(:)) end if