Remove unused variables.

src/AbstractTypes/AbstractLinops.f90

@@ -475,7 +475,7 @@ subroutine reset_counter(self, trans, procedure, counter, reset_timer, soft_rese
       !! optional flag to choose whether to fully reset the timer (default: .false.)
       ! internals
       integer :: counter_, count_old
-      logical :: reset_timer_, soft, clean
+      logical :: reset_timer_ 
       character(len=128) :: msg
       counter_ = optval(counter, 0)
       count_old = self%get_counter(trans)

src/AbstractTypes/AbstractLinops.fypp

@@ -223,7 +223,7 @@ contains
       !! optional flag to choose whether to fully reset the timer (default: .false.)
       ! internals
       integer :: counter_, count_old
-      logical :: reset_timer_, soft, clean
+      logical :: reset_timer_ 
       character(len=128) :: msg
       counter_ = optval(counter, 0)
       count_old = self%get_counter(trans)

src/Krylov/BaseKrylov.f90

@@ -1150,7 +1150,7 @@ subroutine krylov_schur_rsp(n, X, H, select_eigs)
         !-----     Internal variables     -----
         !--------------------------------------
 
-        integer :: i, kdim
+        integer :: kdim
 
         ! Schur-related.
         real(sp) :: Z(size(H, 2), size(H, 2)), T(size(H, 2), size(H, 2))
@@ -1209,7 +1209,7 @@ subroutine krylov_schur_rdp(n, X, H, select_eigs)
         !-----     Internal variables     -----
         !--------------------------------------
 
-        integer :: i, kdim
+        integer :: kdim
 
         ! Schur-related.
         real(dp) :: Z(size(H, 2), size(H, 2)), T(size(H, 2), size(H, 2))
@@ -1268,7 +1268,7 @@ subroutine krylov_schur_csp(n, X, H, select_eigs)
         !-----     Internal variables     -----
         !--------------------------------------
 
-        integer :: i, kdim
+        integer :: kdim
 
         ! Schur-related.
         complex(sp) :: Z(size(H, 2), size(H, 2)), T(size(H, 2), size(H, 2))
@@ -1327,7 +1327,7 @@ subroutine krylov_schur_cdp(n, X, H, select_eigs)
         !-----     Internal variables     -----
         !--------------------------------------
 
-        integer :: i, kdim
+        integer :: kdim
 
         ! Schur-related.
         complex(dp) :: Z(size(H, 2), size(H, 2)), T(size(H, 2), size(H, 2))

src/Krylov/BaseKrylov.fypp

@@ -726,7 +726,7 @@ contains
         !-----     Internal variables     -----
         !--------------------------------------
 
-        integer :: i, kdim
+        integer :: kdim
 
         ! Schur-related.
         ${type}$ :: Z(size(H, 2), size(H, 2)), T(size(H, 2), size(H, 2))

src/Utilities/Logger.f90

@@ -180,11 +180,11 @@ subroutine check_info(info, origin, module, procedure, info_msg)
       character(len=*), optional,  intent(in)  :: procedure
       !! The name of the procedure in which the call happens
       character(len=*), optional,  intent(in)  :: info_msg
-      character*128                            :: str
+      character(len=128)                       :: str
       !! Optional extra message
 
       ! internals
-      character*256 :: msg
+      character(len=256) :: msg
       integer :: ierr
 
       str = optval(info_msg, '')
@@ -564,11 +564,11 @@ subroutine check_test(error, test_name, info, eq, context)
       character(len=*),    optional, intent(in)    :: info
       character(len=*),    optional, intent(in)    :: eq
       character(len=*),    optional, intent(in)    :: context
-      character*128                                :: name
+      character(len=128)                           :: name
 
       ! internals
-      character*128                  :: msg, info_, eq_
-      character(len=*), parameter :: indent = repeat(" ", 7)
+      character(len=128)                           :: msg, info_, eq_
+      ! character(len=*), parameter :: indent = repeat(" ", 7)
       character(len=4), dimension(4) :: substrings
       integer :: i
 

src/Utilities/Timer_Utils.f90

@@ -350,9 +350,7 @@ subroutine finalize_timer(self, if_silent)
       logical, optional, intent(in) :: if_silent
       !! No output
       ! internal
-      integer :: i, count
       logical :: silent
-      real(dp) :: etime, etavg
       character(len=128) :: msg
       silent = optval(if_silent, .false.)
       call self%stop()