From 2615e14f9411cb3198752c587e8172a4da15f0c8 Mon Sep 17 00:00:00 2001 From: David Sagan Date: Tue, 25 Jun 2024 00:27:51 -0400 Subject: [PATCH] Fix Tao `python beam` command. --- sim_utils/interfaces/precision_def.f90 | 2 +- tao/code/tao_python_cmd.f90 | 4 ++-- tao/version/tao_version_mod.f90 | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/sim_utils/interfaces/precision_def.f90 b/sim_utils/interfaces/precision_def.f90 index 1e48d9143f..ec22630dae 100644 --- a/sim_utils/interfaces/precision_def.f90 +++ b/sim_utils/interfaces/precision_def.f90 @@ -6,7 +6,7 @@ module precision_def integer, parameter :: i4_b = selected_int_kind(9) ! Equiv to NR I4B type global_common_struct - logical :: mp_threading_is_safe = .true. ! Can threading be used with MP? + logical :: mp_threading_is_safe = .true. ! Can threading be used with MP? EG ramping is not thread safe. logical :: exit_on_error = .true. ! Exit program on error? integer :: debug = 0 ! Used for debugging purpeses end type diff --git a/tao/code/tao_python_cmd.f90 b/tao/code/tao_python_cmd.f90 index 44139df7b1..44a086169b 100644 --- a/tao/code/tao_python_cmd.f90 +++ b/tao/code/tao_python_cmd.f90 @@ -322,7 +322,7 @@ subroutine tao_python_cmd (input_str) case ('beam') - u => point_to_uni(line, .false., err); if (err) return + u => point_to_uni(line, .true., err); if (err) return ix_branch = parse_branch(line, u, .false., err); if (err) return nl=incr(nl); write (li(nl), lmt) 'always_reinit;LOGIC;T;', u%beam%always_reinit @@ -378,7 +378,7 @@ subroutine tao_python_cmd (input_str) case ('beam_init') - u => point_to_uni(line, .false., err); if (err) return + u => point_to_uni(line, .true., err); if (err) return ix_branch = parse_branch(line, u, .false., err); if (err) return beam_init => u%model_branch(ix_branch)%beam%beam_init diff --git a/tao/version/tao_version_mod.f90 b/tao/version/tao_version_mod.f90 index bde75ee2e0..75d465b971 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/06/20 04:46:43" +character(*), parameter :: tao_version_date = "2024/06/22 15:38:34" end module