xcinp_fact_noloc bugfix

nwchemgit · Jan 19, 2024 · fcf8992 · fcf8992
1 parent 80ccdb1
commit fcf8992
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