Browse Source

drop #ifdef MUTUAL

pre-master-46
Francesco Lannutti 12 years ago
committed by rlar
parent
commit
3a7e9411c3
  1. 3
      src/spicelib/devices/ind/ind.c
  2. 9
      src/spicelib/devices/ind/inddefs.h
  3. 4
      src/spicelib/devices/ind/indload.c
  4. 4
      src/spicelib/devices/ind/indsacl.c
  5. 4
      src/spicelib/devices/ind/indsload.c
  6. 4
      src/spicelib/devices/ind/indsupd.c
  7. 2
      src/spicelib/devices/ind/mutacld.c
  8. 2
      src/spicelib/devices/ind/mutask.c
  9. 2
      src/spicelib/devices/ind/mutparam.c
  10. 2
      src/spicelib/devices/ind/mutpzld.c
  11. 4
      src/spicelib/devices/ind/mutsetup.c
  12. 2
      src/spicelib/devices/ind/mutsprt.c
  13. 2
      src/spicelib/devices/ind/mutsset.c

3
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*/

9
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"
@ -122,8 +118,6 @@ struct sINDmodel { /* model structure for an inductor */
};
#ifdef MUTUAL
/* structures used to describe mutual inductors */
@ -176,7 +170,6 @@ struct INDsystem {
struct INDsystem *next_system;
};
#endif /*MUTUAL*/
/* device parameters */
#define IND_IND 1
@ -213,7 +206,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
@ -230,7 +222,6 @@ struct INDsystem {
#define MUT_QUEST_SENS_CPLX 605
#define MUT_QUEST_SENS_DC 606
#endif /*MUTUAL*/
#include "indext.h"

4
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;

4
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);

4
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);

4
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){

2
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 */

2
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 */

2
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 */

2
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*/

4
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

2
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 */

2
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 */
Loading…
Cancel
Save