Fully revert upcase.F90

openmopac · Oct 24, 2022 · d278fc6 · d278fc6
1 parent 59d53d6
commit d278fc6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/utilities/upcase.F90 b/src/utilities/upcase.F90
@@ -24,7 +24,7 @@ subroutine upcase(keywrd, n)
 !-----------------------------------------------
 !   L o c a l   V a r i a b l e s
 !-----------------------------------------------
-      integer :: icapa, ilowa, ilowz, i, iline, j, k
+      integer :: icapa, ilowa, ilowz, i, iline, j
       character :: keybuf*3000
 !-----------------------------------------------
 !