muttemp.c, allow negative inductance

9 years ago · fc32837b44
1 changed files with 1 additions and 1 deletions
--- a/src/spicelib/devices/ind/muttemp.c
+++ b/src/spicelib/devices/ind/muttemp.c
@ -29,7 +29,7 @@ MUTtemp(GENmodel *inModel, CKTcircuit *ckt)
            /*           _______
             * M = k * \/L1 * L2
             */
-            here->MUTfactor = here->MUTcoupling * sqrt(ind1 * ind2);
+            here->MUTfactor = here->MUTcoupling * sqrt(fabs(ind1 * ind2));
        }

    return(OK);