From fcf899203ae6b36f926ba135e48315102bb5a07e Mon Sep 17 00:00:00 2001
From: Daniel Mejia-Rodriguez <daniel.mejia@pnnl.gov>
Date: Thu, 18 Jan 2024 17:10:06 -0800
Subject: [PATCH] xcinp_fact_noloc bugfix

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

diff --git a/src/nwdft/input_dft/xc_inp.F b/src/nwdft/input_dft/xc_inp.F
index 6187a26150..f59a74d3e2 100644
--- a/src/nwdft/input_dft/xc_inp.F
+++ b/src/nwdft/input_dft/xc_inp.F
@@ -4832,6 +4832,9 @@ subroutine xcinp_fact_noloc(test,funcname,fact_out)
                write(LuOut,*)' total ',funcname(1:inp_strlen(funcname)),
      &              ' is used. '
                goto 1
+            else
+               fact_out=1d0
+               call inp_prev_field()
             endif
          else
             fact_out=1d0