From 72f53a2bc2e592faf4bac2f95504ba59902920a2 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 20 Dec 2006 11:35:56 +0000
Subject: [PATCH] *** empty log message ***

---
 src/internals/psi_gthsct.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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