From 25f9c4de558ddf4e1d3e0b34ccd4dc27ca777e8a Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 25 Oct 2021 13:19:07 -0400 Subject: [PATCH] Removed cruft --- src/encounter/encounter_check.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/src/encounter/encounter_check.f90 b/src/encounter/encounter_check.f90 index ea42073a0..e8bd7987e 100644 --- a/src/encounter/encounter_check.f90 +++ b/src/encounter/encounter_check.f90 @@ -918,7 +918,6 @@ module pure subroutine encounter_check_sort_aabb_1D(self, n, extent_arr) real(DP), dimension(:), intent(in) :: extent_arr !! Array of extents of size 2*n ! Internals integer(I4B) :: i, j, k, ibox, jbox - integer(I4B), dimension(2) :: extent logical, dimension(:), allocatable :: lfresh call util_sort(extent_arr, self%ind)