From 7ab36529c0294146919793acead7d2ab0da84c53 Mon Sep 17 00:00:00 2001 From: Colin Josey Date: Thu, 1 Oct 2015 14:02:37 -0400 Subject: [PATCH] Removed spurious variable --- src/search.F90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/search.F90 b/src/search.F90 index ea11498663..d38dfb986e 100644 --- a/src/search.F90 +++ b/src/search.F90 @@ -28,7 +28,6 @@ contains integer :: L integer :: R integer :: n_iteration - real(8) :: testval L = 1 R = n @@ -69,7 +68,6 @@ contains integer :: L integer :: R integer :: n_iteration - real(8) :: testval L = 1 R = n @@ -110,7 +108,6 @@ contains integer :: L integer :: R integer :: n_iteration - real(8) :: testval L = 1 R = n