diff --git a/src/spicelib/devices/ind/ind.c b/src/spicelib/devices/ind/ind.c index 97356b503..24d1eeccb 100644 --- a/src/spicelib/devices/ind/ind.c +++ b/src/spicelib/devices/ind/ind.c @@ -63,7 +63,6 @@ int INDmPTSize = NUMELEMS(INDmPTable); int INDiSize = sizeof(INDinstance); int INDmSize = sizeof(INDmodel); -#ifdef MUTUAL IFparm MUTpTable[] = { /* parameters */ IOPAP( "k", MUT_COEFF, IF_REAL , "Mutual inductance"), @@ -86,5 +85,3 @@ int MUTpTSize = NUMELEMS(MUTpTable); int MUTmPTSize = 0; int MUTiSize = sizeof(INDinstance); int MUTmSize = sizeof(INDmodel); - -#endif /*MUTUAL*/ diff --git a/src/spicelib/devices/ind/inddefs.h b/src/spicelib/devices/ind/inddefs.h index 29d86207c..d5d36d867 100644 --- a/src/spicelib/devices/ind/inddefs.h +++ b/src/spicelib/devices/ind/inddefs.h @@ -6,10 +6,6 @@ Author: 1985 Thomas L. Quarles #ifndef IND #define IND - -/* turn on mutual inductor code */ -#define MUTUAL - #include "ngspice/ifsim.h" #include "ngspice/complex.h" #include "ngspice/gendefs.h" @@ -125,7 +121,6 @@ struct sINDmodel { /* model structure for an inductor */ }; -#ifdef MUTUAL /* structures used to describe mutual inductors */ @@ -184,7 +179,6 @@ struct INDsystem { struct INDsystem *next_system; }; -#endif /*MUTUAL*/ /* device parameters */ #define IND_IND 1 @@ -221,7 +215,6 @@ struct INDsystem { #define IND_QUEST_SENS_CPLX 205 #define IND_QUEST_SENS_DC 206 -#ifdef MUTUAL /* device parameters */ #define MUT_COEFF 401 #define MUT_IND1 402 @@ -238,7 +231,6 @@ struct INDsystem { #define MUT_QUEST_SENS_CPLX 605 #define MUT_QUEST_SENS_DC 606 -#endif /*MUTUAL*/ #include "indext.h" diff --git a/src/spicelib/devices/ind/indload.c b/src/spicelib/devices/ind/indload.c index ad3929492..f70ebbb71 100644 --- a/src/spicelib/devices/ind/indload.c +++ b/src/spicelib/devices/ind/indload.c @@ -24,12 +24,10 @@ INDload(GENmodel *inModel, CKTcircuit *ckt) double m; int error; -#ifdef MUTUAL MUTinstance *muthere; MUTmodel *mutmodel; int ktype; int itype; -#endif /* loop through all the inductor models */ for( ; model != NULL; model = INDnextModel(model)) { @@ -49,7 +47,6 @@ INDload(GENmodel *inModel, CKTcircuit *ckt) *(ckt->CKTrhsOld + here->INDbrEq); } } -#ifdef MUTUAL } } ktype = CKTtypelook("mutual"); @@ -84,7 +81,6 @@ INDload(GENmodel *inModel, CKTcircuit *ckt) for (here = INDinstances(model); here != NULL ; here=INDnextInstance(here)) { -#endif /*MUTUAL*/ if(ckt->CKTmode & MODEDC) { req = 0.0; veq = 0.0; diff --git a/src/spicelib/devices/ind/indsacl.c b/src/spicelib/devices/ind/indsacl.c index 01549c07f..719bea901 100644 --- a/src/spicelib/devices/ind/indsacl.c +++ b/src/spicelib/devices/ind/indsacl.c @@ -22,7 +22,6 @@ INDsAcLoad(GENmodel *inModel, CKTcircuit *ckt) INDmodel *model = (INDmodel*)inModel; INDinstance *here; double cind,icind,val,ival; -#ifdef MUTUAL MUTinstance *muthere; MUTmodel *mutmodel; double cind1; @@ -48,7 +47,6 @@ INDsAcLoad(GENmodel *inModel, CKTcircuit *ckt) double k2; int ktype; int itype; -#endif SENstruct *info; info = ckt->CKTsenInfo; @@ -59,7 +57,6 @@ INDsAcLoad(GENmodel *inModel, CKTcircuit *ckt) for (here = INDinstances(model); here != NULL ; here=INDnextInstance(here)) { -#ifdef MUTUAL } } ktype = CKTtypelook("mutual"); @@ -142,7 +139,6 @@ INDsAcLoad(GENmodel *inModel, CKTcircuit *ckt) /* loop through all the instances of the model */ for (here = INDinstances(model); here != NULL ; here=INDnextInstance(here)) { -#endif /* MUTUAL */ if(here->INDsenParmNo){ cind = *(ckt->CKTrhsOld + here->INDbrEq); icind = *(ckt->CKTirhsOld + here->INDbrEq); diff --git a/src/spicelib/devices/ind/indsload.c b/src/spicelib/devices/ind/indsload.c index 89d3b5eb1..ec7947f86 100644 --- a/src/spicelib/devices/ind/indsload.c +++ b/src/spicelib/devices/ind/indsload.c @@ -28,7 +28,6 @@ INDsLoad(GENmodel *inModel, CKTcircuit *ckt) double tag1; SENstruct *info; -#ifdef MUTUAL MUTinstance *muthere; MUTmodel *mutmodel; double cind1; @@ -39,7 +38,6 @@ INDsLoad(GENmodel *inModel, CKTcircuit *ckt) int itype; int IND1_brEq; int IND2_brEq; -#endif info = ckt->CKTsenInfo; @@ -65,7 +63,6 @@ INDsLoad(GENmodel *inModel, CKTcircuit *ckt) for (here = INDinstances(model); here != NULL ; here=INDnextInstance(here)) { -#ifdef MUTUAL } } ktype = CKTtypelook("mutual"); @@ -122,7 +119,6 @@ INDsLoad(GENmodel *inModel, CKTcircuit *ckt) for (here = INDinstances(model); here != NULL ; here=INDnextInstance(here)) { -#endif /* MUTUAL */ cind = *(ckt->CKTrhsOld + here->INDbrEq); #ifdef SENSDEBUG fprintf(stdout,"\n cind=%.5e\n",cind); diff --git a/src/spicelib/devices/ind/indsupd.c b/src/spicelib/devices/ind/indsupd.c index 86816b5a6..0c12957d1 100644 --- a/src/spicelib/devices/ind/indsupd.c +++ b/src/spicelib/devices/ind/indsupd.c @@ -28,7 +28,6 @@ INDsUpdate(GENmodel *inModel, CKTcircuit *ckt) double dummy1; double dummy2; SENstruct *info; -#ifdef MUTUAL MUTinstance *muthere; MUTmodel *mutmodel; double sxp1; @@ -37,7 +36,6 @@ INDsUpdate(GENmodel *inModel, CKTcircuit *ckt) double rootl1,rootl2; int ktype; int itype; -#endif info = ckt->CKTsenInfo; if(ckt->CKTmode & MODEINITTRAN) return(OK); @@ -67,7 +65,6 @@ INDsUpdate(GENmodel *inModel, CKTcircuit *ckt) } -#ifdef MUTUAL } } ktype = CKTtypelook("mutual"); @@ -128,7 +125,6 @@ INDsUpdate(GENmodel *inModel, CKTcircuit *ckt) /* loop through all the instances of the model */ for (here = INDinstances(model); here != NULL ; here=INDnextInstance(here)) { -#endif /* MUTUAL */ for(iparmno = 1;iparmno<=info->SENparms;iparmno++){ if(ckt->CKTmode&MODETRANOP){ diff --git a/src/spicelib/devices/ind/mutacld.c b/src/spicelib/devices/ind/mutacld.c index 6d817fb5b..09aa3ce76 100644 --- a/src/spicelib/devices/ind/mutacld.c +++ b/src/spicelib/devices/ind/mutacld.c @@ -12,7 +12,6 @@ Author: 1985 Thomas L. Quarles #include "ngspice/suffix.h" -#ifdef MUTUAL int MUTacLoad(GENmodel *inModel, CKTcircuit *ckt) { @@ -32,4 +31,3 @@ MUTacLoad(GENmodel *inModel, CKTcircuit *ckt) return(OK); } -#endif /* MUTUAL */ diff --git a/src/spicelib/devices/ind/mutask.c b/src/spicelib/devices/ind/mutask.c index dbf8a16b5..702a1ba46 100644 --- a/src/spicelib/devices/ind/mutask.c +++ b/src/spicelib/devices/ind/mutask.c @@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles #include "ngspice/sperror.h" #include "ngspice/suffix.h" -#ifdef MUTUAL /*ARGSUSED*/ int @@ -98,4 +97,3 @@ MUTask(CKTcircuit *ckt, GENinstance *inst, int which, IFvalue *value, } /* NOTREACHED */ } -#endif /* MUTUAL */ diff --git a/src/spicelib/devices/ind/mutdel.c b/src/spicelib/devices/ind/mutdel.c index b130cd089..b5ee1b71c 100644 --- a/src/spicelib/devices/ind/mutdel.c +++ b/src/spicelib/devices/ind/mutdel.c @@ -9,11 +9,9 @@ Author: 1985 Thomas L. Quarles #include "ngspice/suffix.h" -#ifdef MUTUAL int MUTdelete(GENinstance *gen_inst) { NG_IGNORE(gen_inst); return OK; } -#endif /*MUTUAL*/ diff --git a/src/spicelib/devices/ind/mutdest.c b/src/spicelib/devices/ind/mutdest.c index 87b511639..ca6d239de 100644 --- a/src/spicelib/devices/ind/mutdest.c +++ b/src/spicelib/devices/ind/mutdest.c @@ -8,11 +8,7 @@ Author: 1985 Thomas L. Quarles #include "ngspice/suffix.h" -#ifdef MUTUAL - void MUTdestroy(void) { } - -#endif diff --git a/src/spicelib/devices/ind/mutmdel.c b/src/spicelib/devices/ind/mutmdel.c index 638e00f97..42e7f76af 100644 --- a/src/spicelib/devices/ind/mutmdel.c +++ b/src/spicelib/devices/ind/mutmdel.c @@ -8,12 +8,9 @@ Author: 1985 Thomas L. Quarles #include "ngspice/sperror.h" #include "ngspice/suffix.h" - -#ifdef MUTUAL int MUTmDelete(GENmodel *gen_model) { NG_IGNORE(gen_model); return OK; } -#endif /* MUTUAL */ diff --git a/src/spicelib/devices/ind/mutparam.c b/src/spicelib/devices/ind/mutparam.c index 038a568b8..1a331701d 100644 --- a/src/spicelib/devices/ind/mutparam.c +++ b/src/spicelib/devices/ind/mutparam.c @@ -12,7 +12,6 @@ Author: 1985 Thomas L. Quarles #include "ngspice/suffix.h" -#ifdef MUTUAL /* ARGSUSED */ int MUTparam(int param, IFvalue *value, GENinstance *inst, IFvalue *select) @@ -40,4 +39,3 @@ MUTparam(int param, IFvalue *value, GENinstance *inst, IFvalue *select) } return(OK); } -#endif /* MUTUAL */ diff --git a/src/spicelib/devices/ind/mutpzld.c b/src/spicelib/devices/ind/mutpzld.c index 89029de14..f87ec8c7d 100644 --- a/src/spicelib/devices/ind/mutpzld.c +++ b/src/spicelib/devices/ind/mutpzld.c @@ -13,7 +13,6 @@ Author: 1985 Thomas L. Quarles #include "ngspice/suffix.h" -#ifdef MUTUAL /* ARGSUSED */ int MUTpzLoad(GENmodel *inModel, CKTcircuit *ckt, SPcomplex *s) @@ -38,4 +37,3 @@ MUTpzLoad(GENmodel *inModel, CKTcircuit *ckt, SPcomplex *s) return(OK); } -#endif /*MUTUAL*/ diff --git a/src/spicelib/devices/ind/mutsetup.c b/src/spicelib/devices/ind/mutsetup.c index 23ea9ebb7..8580247b8 100644 --- a/src/spicelib/devices/ind/mutsetup.c +++ b/src/spicelib/devices/ind/mutsetup.c @@ -24,8 +24,6 @@ Author: 1985 Thomas L. Quarles } while(0) -#ifdef MUTUAL - int MUTsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states) { @@ -66,5 +64,3 @@ MUTsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states) return(OK); } - -#endif diff --git a/src/spicelib/devices/ind/mutsprt.c b/src/spicelib/devices/ind/mutsprt.c index 2005120de..dd321346f 100644 --- a/src/spicelib/devices/ind/mutsprt.c +++ b/src/spicelib/devices/ind/mutsprt.c @@ -17,7 +17,6 @@ This function is obsolete (was used by an old sensitivity analysis) #include "ngspice/suffix.h" -#ifdef MUTUAL /* ARGSUSED */ void MUTsPrint(GENmodel *inModel, CKTcircuit* ckt) @@ -48,4 +47,3 @@ MUTsPrint(GENmodel *inModel, CKTcircuit* ckt) } } } -#endif /* MUTUAL */ diff --git a/src/spicelib/devices/ind/mutsset.c b/src/spicelib/devices/ind/mutsset.c index 2158ff3f6..f4de871ba 100644 --- a/src/spicelib/devices/ind/mutsset.c +++ b/src/spicelib/devices/ind/mutsset.c @@ -17,7 +17,6 @@ This function is obsolete (was used by an old sensitivity analysis) #include "ngspice/sperror.h" #include "ngspice/suffix.h" -#ifdef MUTUAL /*ARGSUSED*/ int MUTsSetup(SENstruct *info, GENmodel *inModel) @@ -41,4 +40,3 @@ MUTsSetup(SENstruct *info, GENmodel *inModel) } return(OK); } -#endif /* MUTUAL */