From 5f0035ca91b945a442e749e1687ca676c50b22f8 Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Mon, 20 Jun 2022 14:22:55 +0200
Subject: [PATCH] Fix a bug in the inductance formula.

---
 src/spicelib/devices/ind/indsetup.c | 17 +++++------------
 1 file changed, 5 insertions(+), 12 deletions(-)

diff --git a/src/spicelib/devices/ind/indsetup.c b/src/spicelib/devices/ind/indsetup.c
index 92da1746d..8a76f5d16 100644
--- a/src/spicelib/devices/ind/indsetup.c
+++ b/src/spicelib/devices/ind/indsetup.c
@@ -47,22 +47,15 @@ INDsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
              model->INDmodNt = 0.0;
         }
         if (!model->INDmuGiven) {
-             model->INDmu = 0.0;
+             model->INDmu = 1.0;
         }
           
 	/* precompute specific inductance (one turn) */
-	if((model->INDlengthGiven) 
-              && (model->INDlength > 0.0)) {
-                
-		if (model->INDmuGiven)
-                    model->INDspecInd = (model->INDmu * CONSTmuZero 
-		     * model->INDcsect * model->INDcsect) / model->INDlength;   
-		else
-                   model->INDspecInd = (CONSTmuZero * model->INDcsect
-		   * model->INDcsect ) / model->INDlength; 
-	
+	if((model->INDlengthGiven) && (model->INDlength > 0.0)) {
+         model->INDspecInd = (model->INDmu * CONSTmuZero
+		     * model->INDcsect) / model->INDlength;
 	} else  {
-	        model->INDspecInd = 0.0;
+	     model->INDspecInd = 0.0;
 	}	
         
 	if (!model->INDmIndGiven)