Fix Tap command orbit setting (#957)

* Fix Tap `cut` command orbit setting
bmad-sim · May 7, 2024 · 9a63068 · 9a63068
1 parent 54c4727
commit 9a63068
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/changelog.md b/changelog.md
@@ -10,6 +10,8 @@ Types of entries:
 - `Fixed` for any bug fixes.
 - `Security` in case of vulnerabilities.
 
+- 2024-05-06 Fixed Tao `cut` command orbit setting.
+
 - 2024-04-24 Removed: srdt_lsq_soln program since it is not supported and Tao has this functionality.
 
 - 2024-04-24 Fixed: Foil tracking when there is an offset.

diff --git a/tao/code/tao_command.f90 b/tao/code/tao_command.f90
@@ -364,7 +364,8 @@ subroutine tao_command (command_line, err_flag, err_is_fatal)
   case ('-static'); u%model%lat%particle_start = u%model%tao_branch(0)%orbit(0)
   case ('-zero');   u%model%lat%particle_start%vec = 0
   end select
-
+  u%model%tao_branch(0)%orb0 = u%model%lat%particle_start
+
   u%calc%lattice = .true.
   call tao_lattice_calc (ok)