Skip to content

Commit

Permalink
Added to last mod.
Browse files Browse the repository at this point in the history
  • Loading branch information
DavidSagan committed Jun 20, 2024
1 parent 72480de commit 15ca47e
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions tao/code/tao_locate_elements.f90
Original file line number Diff line number Diff line change
Expand Up @@ -57,6 +57,7 @@ subroutine tao_locate_elements (ele_list, ix_universe, eles, err, lat_type, igno
call re_allocate_eles (eles, 0, exact = .true.)

call str_upcase (ele_name, ele_list)
ele_name = unquote(ele_name)
call string_trim (ele_name, ele_name, ix)

if (ix == 0 .and. logic_option(.false., ignore_blank)) then
Expand Down

0 comments on commit 15ca47e

Please sign in to comment.