Skip to content

Commit

Permalink
Minor fix for Tao set element command.
Browse files Browse the repository at this point in the history
  • Loading branch information
DavidSagan committed Aug 8, 2024
1 parent 9f7a7e3 commit abeca94
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion tao/code/tao_set_mod.f90
Original file line number Diff line number Diff line change
Expand Up @@ -3128,7 +3128,7 @@ subroutine tao_set_elements_cmd (ele_list, attribute, value, update)
do i = 1, size(eles)
u => s%u(eles(i)%id)
call set_ele_attribute (eles(i)%ele, trim(attribute) // '=' // trim(val_str), err, .false., lord_set)
call pointer_to_attribute(eles(i)%ele, attribute, .true., a_ptr, err)
call pointer_to_attribute(eles(i)%ele, attribute, .true., a_ptr, err, .false.)
call tao_set_flags_for_changed_attribute (u, eles(i)%ele%name, eles(i)%ele, a_ptr)
if (.not. err) n_set = n_set + 1
enddo
Expand Down

0 comments on commit abeca94

Please sign in to comment.