Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Fixed sign error
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Oct 26, 2021
1 parent 499cf27 commit 17d6c57
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/encounter/encounter_check.f90
Original file line number Diff line number Diff line change
Expand Up @@ -189,7 +189,7 @@ module subroutine encounter_check_all_plplm(param, nplm, nplt, xplm, vplm, xplt,
call move_alloc(itmp, index1)
allocate(itmp(nenc+plmplt_nenc))
itmp(1:nenc) = index2(1:nenc)
itmp(nenc+1:nenc+plmplt_nenc) = plmplt_index2(1:plmplt_nenc) - nplm ! Be sure to shift these indices back to their natural range
itmp(nenc+1:nenc+plmplt_nenc) = plmplt_index2(1:plmplt_nenc) + nplm ! Be sure to shift these indices back to their natural range
call move_alloc(itmp, index2)
allocate(ltmp(nenc+plmplt_nenc))
ltmp(1:nenc) = lvdotr(1:nenc)
Expand Down

0 comments on commit 17d6c57

Please sign in to comment.