subroutine UpdateLambdas()
! Use damping to update the lambdas, rather than completely replacing
! them with the new values.
integer :: l
do l = 1, TotNoConstraints
ShakeLambda(l) = ShakeLambdaNew(l)
end do
end subroutine UpdateLambdas