diff --git a/src/internals/psi_gthsct.f90 b/src/internals/psi_gthsct.f90
index d52cce9a..00d78171 100644
--- a/src/internals/psi_gthsct.f90
+++ b/src/internals/psi_gthsct.f90
@@ -122,7 +122,7 @@ contains
 
     implicit none
 
-    integer :: n, k, idx(:)
+    integer :: n, idx(:)
     real(kind(1.d0)) :: beta, x(:), y(:)
 
     ! Locals