Correct last checkin. (bmad-sim#1687)

Author: DavidSagan

bmad/output/type_taylors.f90

@@ -111,7 +111,7 @@ subroutine type_taylors (bmad_taylor, max_order, lines, n_lines, file_id, out_st
     nl=nl+1; write (li(nl), '(5a)') 'v_', trim(suffix), ' = zeros(TPS64{d_', trim(suffix), '}, 6)'
   else
     nl=nl+1; li(nl) = 'using ReferenceFrameRotations'
-    nl=nl+1; write(li(nl), '(3a)') 'q_', trim(suffix), ' = Quaternion{TPS64{d_', trim(suffix), '}}(0,0,0,0)'
+    nl=nl+1; write(li(nl), '(5a)') 'q_', trim(suffix), ' = Quaternion{TPS64{d_', trim(suffix), '}}(0,0,0,0)'
   endif
 
   do i = 1, nt
@@ -130,7 +130,7 @@ subroutine type_taylors (bmad_taylor, max_order, lines, n_lines, file_id, out_st
       endif
 
       if (nt == 4) then
-        nl=nl+1; write (li(nl), '(5a, 7(i0, a), es24.16)') 'q_', trim(suffix), '.', q_out(i), '[', i, '][[', (tt%expn(k), ',', k = 1, 5), tt%expn(6), ']] =', tt%coef  
+        nl=nl+1; write (li(nl), '(5a, 6(i0, a), es24.16)') 'q_', trim(suffix), '.', q_out(i), '[[', (tt%expn(k), ',', k = 1, 5), tt%expn(6), ']] =', tt%coef  
       else
         nl=nl+1; write (li(nl), '(3a, 7(i0, a), es24.16)') 'v_', trim(suffix), '[', i, '][[', (tt%expn(k), ',', k = 1, 5), tt%expn(6), ']] =', tt%coef  
       endif

tao/code/tao_show_this.f90

@@ -5359,8 +5359,9 @@ subroutine tao_show_this (what, result_id, lines, nl)
         call transfer_map_calc (lat, taylor, err, i0, ele%ix_ele, u%model%tao_branch(ix_branch)%orbit(i0), ele%ix_branch, spin_map = spin_taylor)
         call type_taylors (taylor, n_order, lines, n_lines = nl, out_style = style, clean = clean, out_var_suffix = var_name, append = .true.)
         if (bmad_com%spin_tracking_on) then
+          call re_allocate(lines, 2*nl)
           nl=nl+1; lines(nl) = ''
-          call type_taylors (spin_taylor, n_order, lines, n_lines = nl, clean = clean, append = .true.)
+          call type_taylors (spin_taylor, n_order, lines, n_lines = nl, out_style = style, clean = clean, append = .true.)
         endif
       endif
     enddo
@@ -5370,8 +5371,9 @@ subroutine tao_show_this (what, result_id, lines, nl)
       if (angle_units) call map_to_angle_coords (taylor, taylor)
       call type_taylors (taylor, n_order, lines, n_lines = nl, out_style = style, clean = clean, out_var_suffix = var_name)
       if (bmad_com%spin_tracking_on) then
+        call re_allocate(lines, 2*nl)
         nl=nl+1; lines(nl) = ''
-        call type_taylors (spin_taylor, n_order, lines, n_lines = nl, clean = clean, append = .true.)
+        call type_taylors (spin_taylor, n_order, lines, n_lines = nl, out_style = style, clean = clean, append = .true.)
       endif
       if (print_eigen) call taylor_to_mat6 (taylor, taylor%ref, vec0, mat6)