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