Merge pull request #939 from dmejiar/xcinp

xcinp_fact_noloc bugfix
nwchemgit · Jan 20, 2024 · 0ad8f0b · 0ad8f0b
2 parents 80ccdb1 + fcf8992
commit 0ad8f0b
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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