From ebfc69f1e0f1957ce309f91b2d8f2163e5c08bd2 Mon Sep 17 00:00:00 2001
From: Francesco Lannutti <nicolati@users.sf.net>
Date: Tue, 19 Sep 2017 09:52:29 +0200
Subject: [PATCH] Let NGSPICE overwrite Pivoting Tolerance within KLU with
 PivRel

---
 src/maths/KLU/klusmp.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/maths/KLU/klusmp.c b/src/maths/KLU/klusmp.c
index 8cb5cf0d9..120f9bb79 100644
--- a/src/maths/KLU/klusmp.c
+++ b/src/maths/KLU/klusmp.c
@@ -273,7 +273,7 @@ SMPcReorder (SMPmatrix *Matrix, double PivTol, double PivRel, int *NumSwaps)
     {
         *NumSwaps = 1 ;
         spSetComplex (Matrix->SPmatrix) ;
-//        Matrix->CKTkluCommon->tol = PivTol ;
+        Matrix->CKTkluCommon->tol = PivRel ;
 
         if (Matrix->CKTkluNumeric != NULL)
         {
@@ -310,7 +310,7 @@ SMPreorder (SMPmatrix *Matrix, double PivTol, double PivRel, double Gmin)
     {
         spSetReal (Matrix->SPmatrix) ;
         LoadGmin_CSC (Matrix->CKTdiag_CSC, Matrix->CKTkluN, Gmin) ;
-//        Matrix->CKTkluCommon->tol = PivTol ;
+        Matrix->CKTkluCommon->tol = PivRel ;
 
         if (Matrix->CKTkluNumeric != NULL)
         {