crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 06:05:58 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fix upper_case for letter 'z' (id 122).

Browse source
This commit is contained in:
Paul Romano 2013-03-27 20:00:41 -04:00
parent c27e5a4d16
commit 477c626d50
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/string.F90
View file

@ -179,7 +179,7 @@ contains
do i = 1, len(word)
ic = ichar(word(i:i))
if (ic >= 97 .and. ic < 122) word(i:i) = char(ic-32)
if (ic >= 97 .and. ic <= 122) word(i:i) = char(ic-32)
end do
end subroutine upper_case