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