Very minor mod.

bmad-sim · Nov 15, 2024 · 5b775d6 · 5b775d6
1 parent a3385e3
commit 5b775d6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/tao/code/tao_show_this.f90 b/tao/code/tao_show_this.f90
@@ -170,10 +170,11 @@ subroutine tao_show_this (what, result_id, lines, nl)
 character(24) :: plane, imt, imt2, lmt, lmt2, amt, iamt, ramt, f3mt, rmt, rmt2, rmt3, irmt, iimt
 character(40) ele_name, sub_name, ele1_name, ele2_name, ele_ref_name, b_name, param_name, uni_str
 character(40) replacement_for_blank, component, s_fmt
-character(60) aname, myname, attrib_list(20), attrib
+character(60) aname, myname, attrib
 character(100) :: word1, word2, fmt, fmt2, fmt3, switch, why_invalid
 character(200) header, str, attrib0, file_name, name, excite_zero(3), veto
 character(200), allocatable :: alloc_lines(:)
+character(400) attrib_list(20)
 
 character(2), parameter :: q_name(0:3) = ['q0', 'qx', 'qy', 'qz']
 character(1), parameter :: abc_name(1:3) = ['A', 'B', 'C']

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 = "2024/11/14 22:58:43"
+character(*), parameter :: tao_version_date = "2024/11/15 10:37:58"
 end module