Removed uneeded kind from stdlib imports.

nekStab · Jun 13, 2024 · 55aaa9f · 55aaa9f
1 parent 7149d6e
commit 55aaa9f
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/src/IterativeSolvers.f90 b/src/IterativeSolvers.f90
@@ -2,7 +2,7 @@ module lightkrylov_IterativeSolvers
 
     use iso_fortran_env, only: output_unit
 
-    use stdlib_sorting, only: sort_index, int_index
+    use stdlib_sorting, only: sort_index
     use stdlib_optval, only: optval
     use stdlib_io_npy, only: save_npy
     use stdlib_linalg, only: lstsq
@@ -850,7 +850,7 @@ subroutine eighs_rsp(A, X, eigvals, residuals, info, kdim, tolerance, verbosity)
         !--------------------------------
 
         block
-            integer(int_index) :: indices(kdim_)
+            integer :: indices(kdim_)
             call sort_index(eigvals_wrk, indices, reverse=.true.)
             !eigvals_wrk = eigvals_wrk(indices) ; 
             eigvecs_wrk = eigvecs_wrk(:, indices)
@@ -949,7 +949,7 @@ subroutine eighs_rdp(A, X, eigvals, residuals, info, kdim, tolerance, verbosity)
         !--------------------------------
 
         block
-            integer(int_index) :: indices(kdim_)
+            integer :: indices(kdim_)
             call sort_index(eigvals_wrk, indices, reverse=.true.)
             !eigvals_wrk = eigvals_wrk(indices) ; 
             eigvecs_wrk = eigvecs_wrk(:, indices)
@@ -1048,7 +1048,7 @@ subroutine eighs_csp(A, X, eigvals, residuals, info, kdim, tolerance, verbosity)
         !--------------------------------
 
         block
-            integer(int_index) :: indices(kdim_)
+            integer :: indices(kdim_)
             call sort_index(eigvals_wrk, indices, reverse=.true.)
             !eigvals_wrk = eigvals_wrk(indices) ; 
             eigvecs_wrk = eigvecs_wrk(:, indices)
@@ -1147,7 +1147,7 @@ subroutine eighs_cdp(A, X, eigvals, residuals, info, kdim, tolerance, verbosity)
         !--------------------------------
 
         block
-            integer(int_index) :: indices(kdim_)
+            integer :: indices(kdim_)
             call sort_index(eigvals_wrk, indices, reverse=.true.)
             !eigvals_wrk = eigvals_wrk(indices) ; 
             eigvecs_wrk = eigvecs_wrk(:, indices)

diff --git a/src/IterativeSolvers.fypp b/src/IterativeSolvers.fypp
@@ -4,7 +4,7 @@ module lightkrylov_IterativeSolvers
 
     use iso_fortran_env, only: output_unit
 
-    use stdlib_sorting, only: sort_index, int_index
+    use stdlib_sorting, only: sort_index
     use stdlib_optval, only: optval
     use stdlib_io_npy, only: save_npy
     use stdlib_linalg, only: lstsq
@@ -373,7 +373,7 @@ contains
         !--------------------------------
 
         block
-            integer(int_index) :: indices(kdim_)
+            integer :: indices(kdim_)
             call sort_index(eigvals_wrk, indices, reverse=.true.)
             !eigvals_wrk = eigvals_wrk(indices) ; 
             eigvecs_wrk = eigvecs_wrk(:, indices)