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

Captial Z (id 90) must be included in lower case conditional

Browse source
This commit is contained in:
Bryan Herman 2013-03-23 13:38:57 -04:00
parent 4a5ad36f74
commit c27e5a4d16
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

@ -161,7 +161,7 @@ contains
do i = 1, len(word)
ic = ichar(word(i:i))
if (ic >= 65 .and. ic < 90) word(i:i) = char(ic+32)
if (ic >= 65 .and. ic <= 90) word(i:i) = char(ic+32)
end do
end subroutine lower_case