Commit 4addfe20 authored by Gregor Michalicek's avatar Gregor Michalicek

Reduce damping factor in rdmft/bfgs_b2.f90

parent 5a68c090
......@@ -280,7 +280,7 @@ SUBROUTINE bfgs_b2(vecLength,gradient,lastGradient,minConstraints,maxConstraints
temp = MAXVAL(ABS(tempVecA(:numFreeParams-1)))
maxDisp = 0.05
IF (temp.GT.maxDisp) tempVecA(:numFreeParams) = tempVecA(:numFreeParams) / (temp/maxDisp)
dampingFactor = 0.8
dampingFactor = 0.5
!!! TEST END
j = 1
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment