diff options
-rw-r--r-- | mendeleev.f90 | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/mendeleev.f90 b/mendeleev.f90 index 3108b5e..c7df836 100644 --- a/mendeleev.f90 +++ b/mendeleev.f90 @@ -69,14 +69,7 @@ contains pure integer function tolower(c) character(len=1), intent(in) :: c - integer :: i - - i = iachar(c) - if (i >= 65 .and. i < 90) then - tolower = i + 32 - else - tolower = i - endif + tolower = ior(32, iachar(c)) end function tolower |