From c27e5a4d16b7616a93d429166efd8e4d9868c36f Mon Sep 17 00:00:00 2001 From: Bryan Herman Date: Sat, 23 Mar 2013 13:38:57 -0400 Subject: [PATCH] Captial Z (id 90) must be included in lower case conditional --- src/string.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/string.F90 b/src/string.F90 index 318e530b04..d1a5e68d74 100644 --- a/src/string.F90 +++ b/src/string.F90 @@ -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