Merge branch 'master' of github.com:mit-crpg/openmc

This commit is contained in:
nhorelik 2013-04-01 15:54:25 -04:00
commit 064057e5ab
2 changed files with 2 additions and 1 deletions

View file

@ -222,6 +222,7 @@ input_xml.o: templates/geometry_t.o
input_xml.o: templates/materials_t.o
input_xml.o: templates/settings_t.o
input_xml.o: templates/tallies_t.o
input_xml.o: templates/plots_t.o
interpolation.o: constants.o
interpolation.o: endf_header.o

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