Now beam_init%file_name will be trapped and an error message generate…

…d. (#1113)

bmad/modules/bmad_struct.f90

@@ -1166,6 +1166,7 @@ module bmad_struct
   logical :: use_z_as_t   = .false.          ! Only used if  use_t_coords = .true.
                                              !   If true,  z describes the t distribution 
                                              !   If false, z describes the s distribution
+  character(200) :: file_name = ''           ! OLD!! DO NOT USE!!
 end type
 
 

bmad/multiparticle/beam_utils.f90

@@ -220,6 +220,11 @@ subroutine init_beam_distribution (ele, param, beam_init, beam, err_flag, modes,
 
 if (present(err_flag)) err_flag = .true.
 
+if (beam_init%file_name /= '') then
+  call out_io(s_abort$, r_name, '"BEAM_INIT%FILE_NAME" SHOULD BE "BEAM_INIT%POSITION_FILE". PLEASE CHANGE.')
+  return
+endif
+
 ! Init from file
 
 if (beam_init%position_file /= '') then

bsim/long_term_tracking/doc/long_term_tracking.tex

@@ -85,7 +85,7 @@
 
 \title{Long Term Tracking Program}
 \author{}
-\date{David Sagan \\ June 13, 2024}
+\date{David Sagan \\ August 1, 2024}
 
 \begin{document}
 \pdfbookmark[1]{Contents}{contents}
@@ -590,7 +590,7 @@
 \vn{True}, the closed orbit position is added to the initial particle positions. To read in a file
 with beam particle positions, set the \vn{beam_init} structure appropriately. Example:
 \begin{code}
-beam_init%file_name = 'beam_particle_file.init'
+beam_init%position_file = 'beam_particle_file.init'
 \end{code}
 
 In all cases, tracking will start at the lattice element set by \vn{ltt%ele_start}.
@@ -1013,7 +1013,7 @@ \subsection{Output Parameters}
   util_programs/beam_file_translate_format/DOC
 \end{code}
 
-To use a beam file that has been generated on a previous run with a new run set \vn{beam_init%file_name}
+To use a beam file that has been generated on a previous run with a new run set \vn{beam_init%position_file}
 to the name of the beam file.
 %
 \item[ltt\%column(:)] \Newline

tao/code/tao_show_this.f90

@@ -1752,7 +1752,7 @@ subroutine tao_show_this (what, result_id, lines, nl)
         dt = orb%t - ele%ref_time
         pc = orb%p0c * (1 + orb%vec(6))
         call convert_pc_to (pc, orb%species, e_tot = e_tot) 
-        nl=nl+1; lines(nl) = '         Position[mm] Momentum[mrad]        Spin   |'
+        nl=nl+1; lines(nl) = '         Position[mm] Momentum[1E-3]        Spin   |'
         if (bmad_com%spin_tracking_on) then
           fmt  = '(2x, a, 2f15.8, x, a, a, es16.8, 2x, a, es12.5)'
           fmt2 = '(2x, a, 2f15.8, x, a, a, es16.8, 2x, a, f12.9)'