From df106f2c0a5c9b973b47f59f7ba3d8e83aca5abf Mon Sep 17 00:00:00 2001
From: Francesco Lannutti <nicolati@users.sf.net>
Date: Mon, 23 Apr 2018 14:56:28 +0200
Subject: [PATCH] Fix the clear phase of Matrix and RHS once for all

---
 src/spicelib/analysis/cktload.c | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/spicelib/analysis/cktload.c b/src/spicelib/analysis/cktload.c
index be3659642..80b1500b5 100644
--- a/src/spicelib/analysis/cktload.c
+++ b/src/spicelib/analysis/cktload.c
@@ -53,11 +53,9 @@ CKTload(CKTcircuit *ckt)
     int status ;
     alpha = 1.0 ;
     beta = 0.0 ;
-#else
-    int size ;
 #endif
 
-    int i;
+    int i, size;
     double startTime;
     CKTnode *node;
     int error;
@@ -81,13 +79,13 @@ CKTload(CKTcircuit *ckt)
     status = cuCKTflush (ckt) ;
     if (status != 0)
         return (E_NOMEM) ;
-#else
+#endif
+
     size = SMPmatSize (ckt->CKTmatrix) ;
     for (i = 0 ; i <= size ; i++)
         *(ckt->CKTrhs + i) = 0 ;
 
     SMPclear (ckt->CKTmatrix) ;
-#endif
 
 #ifdef STEPDEBUG
     noncon = ckt->CKTnoncon;