Density fit returns best possible values even if not converged.

Is needed for Hirshfeld charges using density shape function.
This commit is contained in:
Juerg Hutter 2020-09-07 14:23:10 +02:00
parent 1777f50427
commit 538497f832

View file

@ -139,6 +139,7 @@ CONTAINS
ostate%state = 8
CALL powell_optimize(ostate%nvar, x, ostate)
CALL density_fit(density, atom, num_gto, x(1), x(2), co, ostate%f)
CALL release_opgrid(density)