1 files changed, 3 insertions, 9 deletions
diff --git a/common/utilities.F90 b/common/utilities.F90
index 61c5d93..d746e0f 100644
--- a/common/utilities.F90
+++ b/common/utilities.F90
@@ -573,16 +573,10 @@ contains
         character(*), intent(inout)::str
         integer::i
         
-        interface
-            function toupper_c(c) bind(c, name="toupper")
-            use iso_c_binding
-            integer(kind=c_int), value::c
-            integer(kind=c_int)::toupper_c
-            end function toupper_c
-        end interface
-        
         do i=1, len_trim(str)
-            str(i:i) = char(toupper_c(IACHAR(str(i:i))))
+            if(str(i:i) >= 'a' .and. str(i:i) <= 'z') then
+                str(i:i) = CHAR(ICHAR(str(i:i)) + (ICHAR('A') - ICHAR('a')))
+            end if
         end do
         
     end subroutine toupper