Minor bug fix.

bmad-sim · Oct 7, 2023 · 0ee3af4 · 0ee3af4
1 parent f11fa6e
commit 0ee3af4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bmad/code/create_element_slice.f90 b/bmad/code/create_element_slice.f90
@@ -141,7 +141,7 @@ recursive subroutine create_element_slice (sliced_ele, ele_in, l_slice, offset,
  (ele_in%tracking_method == bmad_standard$ .or. ele_in%field_calc == bmad_standard$)) then
  select case (ele_in%key)
  case (sbend$, quadrupole$, sextupole$, octupole$)
- sliced_ele%rad_map%stale = .false.
+ if (associated(sliced_ele%rad_map)) sliced_ele%rad_map%stale = .false.
  end select
 endif