diff --git a/src/symba/symba_encounter_check.f90 b/src/symba/symba_encounter_check.f90 index cd6b81577..1b107d6a2 100644 --- a/src/symba/symba_encounter_check.f90 +++ b/src/symba/symba_encounter_check.f90 @@ -175,8 +175,8 @@ module function symba_encounter_check_pl(self, param, system, dt, irec) result(l call symba_encounter_check_all_triangular(npl, nplm, pl%xh, pl%vh, pl%rhill, dt, irec, lvdotr, index1, index2, nenc) lany_encounter = nenc > 0 if (lany_encounter) then - call move_alloc(lvdotr, plplenc_list%lvdotr) - call move_alloc(index1, plplenc_list%index1) + call move_alloc(lvdotr, plplenc_list%lvdotr) + call move_alloc(index1, plplenc_list%index1) call move_alloc(index2, plplenc_list%index2) end if end if @@ -185,10 +185,8 @@ module function symba_encounter_check_pl(self, param, system, dt, irec) result(l do k = 1, nenc i = plplenc_list%index1(k) j = plplenc_list%index2(k) - call util_index_eucl_ij_to_k(npl, i, j, kenc) - plplenc_list%id1(k) = pl%id(plplenc_list%index1(k)) - plplenc_list%id2(k) = pl%id(plplenc_list%index2(k)) - plplenc_list%status(k) = ACTIVE + plplenc_list%id1(k) = pl%id(i) + plplenc_list%id2(k) = pl%id(j) plplenc_list%level(k) = irec pl%lencounter(i) = .true. pl%lencounter(j) = .true.