Merge pull request #692 from bmad-sim/devel/73

Fix last coord_mod.f90 checkin.
bmad-sim · Dec 11, 2023 · 5362613 · 5362613
2 parents 10e4687 + 6bea685
commit 5362613
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/bmad/modules/coord_mod.f90 b/bmad/modules/coord_mod.f90
@@ -359,7 +359,7 @@ subroutine init_coord2 (orb_out, orb_in, ele, element_end, particle, direction,
  call err_exit
  endif
 
- if (orb%location == downstream_end$ .or. ele%value(l$) == 0) then
+ if (orb%location == downstream_end$ .or. ele%key == beginning_ele$) then
  p0c = ele%value(p0c$)
  e_tot = ele%value(e_tot$)
  ref_time = ele%ref_time

diff --git a/tao/version/tao_version_mod.f90 b/tao/version/tao_version_mod.f90
@@ -6,5 +6,5 @@
 !-
 
 module tao_version_mod
-character(*), parameter :: tao_version_date = "2023/12/10 04:33:35"
+character(*), parameter :: tao_version_date = "2023/12/11 11:37:02"
 end module