From 5b775d673be8c6b106f12f99ae1456d1fa89829d Mon Sep 17 00:00:00 2001 From: David Sagan Date: Fri, 15 Nov 2024 15:10:25 -0500 Subject: [PATCH] Very minor mod. --- tao/code/tao_show_this.f90 | 3 ++- tao/version/tao_version_mod.f90 | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/tao/code/tao_show_this.f90 b/tao/code/tao_show_this.f90 index 3d224cdde..6c64ac5f3 100644 --- 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 index c7cf8d086..aa2a3e019 100644 --- 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