Small changes to the plpl flattener

MintonGroup · Jul 23, 2021 · 05570b9 · 05570b9
1 parent 95af487
commit 05570b9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)