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