Fixed index range

MintonGroup · Jul 30, 2021 · c2ca5ce · c2ca5ce
1 parent 445a8cc
commit c2ca5ce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/symba/symba_encounter_check.f90 b/src/symba/symba_encounter_check.f90
@@ -92,7 +92,7 @@ module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lan
          select type(tp => system%tp)
          class is (symba_tp)
             allocate(lencmask(self%nenc))
-            lencmask(:) = (self%status(1:self%nenc) == ACTIVE) .and. (self%level(:) == irec - 1)
+            lencmask(:) = (self%status(1:self%nenc) == ACTIVE) .and. (self%level(1:self%nenc) == irec - 1)
             if (.not.any(lencmask(:))) return
             associate(ind1 => self%index1, ind2 => self%index2) 
                do concurrent(k = 1:self%nenc, lencmask(k))