From 62151ae9ea52bb739d0dd0a90b920ada716f5efb Mon Sep 17 00:00:00 2001
From: Edoardo Apra <edoardo.apra@gmail.com>
Date: Mon, 17 Feb 2003 17:56:15 +0000
Subject: [PATCH] removed unreachable statement

---
 src/nwdft/input_dft/xc_inp.F | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/nwdft/input_dft/xc_inp.F b/src/nwdft/input_dft/xc_inp.F
index 7c7534785a..9d343702d7 100644
--- a/src/nwdft/input_dft/xc_inp.F
+++ b/src/nwdft/input_dft/xc_inp.F
@@ -954,9 +954,8 @@ c
       if (.not. inp_f(xfac(19))) then
          xfac(19) = 1.0d0
       endif
-       goto 10
-c
       goto 10
+c
 c     
 c     cpbe96 Perdew-Burke-Ernzerhof functional for correlation
 c