Added pure back to the sweep subroutine

MintonGroup · Oct 23, 2021 · a802bcc · a802bcc
1 parent 396da9a
commit a802bcc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/encounter/encounter_check.f90 b/src/encounter/encounter_check.f90
@@ -1079,7 +1079,7 @@ subroutine encounter_check_sweep_aabb_all_single_list(n, ext_ind, ibeg, iend, in
    end subroutine encounter_check_sweep_aabb_all_single_list
 
 
-   subroutine encounter_check_sweep_aabb_one_double_list(i, n1, n2, ntot, ext_ind, ibegi, iendi, ibeg, iend, lencounteri)
+   pure subroutine encounter_check_sweep_aabb_one_double_list(i, n1, n2, ntot, ext_ind, ibegi, iendi, ibeg, iend, lencounteri)
       !! author: David A. Minton
       !!
       !! Performs a sweep operation on a single body. Encounters from the same lists not allowed (e.g. pl-tp encounters only)