From 05570b95619dd67e51ff33b433997c9b4af8af47 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 22 Jul 2021 23:23:45 -0400 Subject: [PATCH] Small changes to the plpl flattener --- src/eucl/eucl.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/eucl/eucl.f90 b/src/eucl/eucl.f90 index e17aadd4d..306110635 100644 --- a/src/eucl/eucl.f90 +++ b/src/eucl/eucl.f90 @@ -17,7 +17,7 @@ module subroutine eucl_dist_index_plpl(self) integer(I8B) :: i, j, counter, npl npl = int(self%nbody, kind=I8B) - associate(num_comparisons => self%num_comparisons, k_eucl => self%k_eucl) + associate(num_comparisons => self%num_comparisons) num_comparisons = (npl * (npl - 1) / 2) ! number of entries in a strict lower triangle, nplm x npl, minus first column if (allocated(self%k_eucl)) deallocate(self%k_eucl) ! Reset the index array if it's been set previously if (allocated(self%irij3)) deallocate(self%irij3)