Merge pull request #1041 from jsberg-bnl/211103-fix-plot-peschm

Fix a potential out-of-range access in peschm
MethodicalAcceleratorDesign · Nov 9, 2021 · dd0d0a2 · dd0d0a2
2 parents 480525a + 30339b7
commit dd0d0a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/plot.f90 b/src/plot.f90
@@ -1996,7 +1996,7 @@ subroutine peschm (nel, ityp, hr, es, ee, actwin)
         endif
      endif
      if (es(i) .gt. actwin(2)) goto 50
-     if (ee(i) .ge. actwin(1)) then
+     if (ee(i) .ge. actwin(1) .and. it .le. mobj) then
         txp(1) = es(i) + shapex(npst(it)) * ell
         typ(1) = shapey(npst(it))
         do  j = npst(it)+1, npnd(it)