Merge branch 'debug' into IntelAdvisor

MintonGroup · Oct 23, 2021 · 359ff77 · 359ff77
2 parents 4032d6b + a802bcc
commit 359ff77
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/encounter/encounter_check.f90 b/src/encounter/encounter_check.f90
@@ -1122,7 +1122,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)